home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-01 / strlib.zip / STRCPBRK.C < prev    next >
Text File  |  1993-01-04  |  640b  |  24 lines
  1.  
  2. /*  File   : strcpbrk.c
  3.     Author : Richard A. O'Keefe.
  4.     Updated: 20 April 1984
  5.     Defines: strcpbrk()
  6.  
  7.     strcpbrk(s1, s2) returns a pointer to the first character of s1 which
  8.     does not occur in s2.  It is to strpbrk as strcspn is to strspn.   It
  9.     relies on NUL never being in a set.
  10. */
  11.  
  12. #include "strings.h"
  13. #include "_str2set.h"
  14.  
  15. char *strcpbrk(str, set)
  16.     register _char_ *str;
  17.     char *set;
  18.     {
  19.         _str2set(set);
  20.         while (_set_vec[*str++] == _set_ctr);
  21.         return *--str ? str : NullS;
  22.     }
  23.  
  24.